home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSLTYP.for < prev    next >
Text File  |  1991-04-13  |  268b  |  14 lines
  1.         SUBROUTINE GSLTYP(ITYPE)
  2.         IMPLICIT NONE
  3. C
  4. C
  5.         INCLUDE DIGLIB$KOM:GCLTYP.PRM
  6. C
  7. C       SET THE CURRENT LINE TYPE
  8. C
  9.         ILNTYP = ITYPE
  10.         IF (ILNTYP .LE. 0 .OR. (ILNTYP .GT. 4)) ILNTYP = 1
  11.         LINILT = .TRUE.
  12.         RETURN
  13.         END
  14.